(values): Simplify definition.

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index c5d3ef0832ea9f523de9ec420559709dd4dbed19..9a5677237a86315ce594ec8adc1eebd902cf1812 100644 (file)
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -207,7 +207,7 @@ Keywords supported:  :test :test-not :key"
   "Return multiple values, Common Lisp style.
 The arguments of `values' are the values
 that the containing function should return."
-  (apply 'list values))
+  values)
 
 (defsubst values-list (list)
   "Return multiple values, Common Lisp style, taken from a list.